home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021d.dsk / DEMO.BEAGLE BAG.bas < prev    next >
BASIC Source File  |  2003-06-12  |  859b  |  11 lines
  1. 10  TEXT : HOME : NORMAL : SPEED= 200: VTAB 5
  2. 20  PRINT "BEAGLE BAG IS A COLLECTION OF TWELVE    APPLESOFT GAMES ON ONE DISK. WE HAVE    DEMOS FOR THREE OF THESE GAMES. ": PRINT : PRINT "YOU HAVE FOUR CHOICES:": PRINT 
  3. 30  PRINT "  <1> SEE SLIPPERY DIGITS DEMO": PRINT : PRINT "  <2> SEE TEXTTRAIN DEMO": PRINT : PRINT "  <3> SEE WOWZO DEMO": PRINT : PRINT "  <4> RETURN TO MAIN MENU"
  4. 35  SPEED= 255: INVERSE : VTAB 5: HTAB 31: PRINT "TWELVE": HTAB 20: PRINT "ONE": HTAB 11: PRINT "THREE": PRINT : HTAB 10: PRINT "FOUR": NORMAL 
  5. 40  VTAB 20: PRINT "TAKE YOUR PICK:";: GET A$: PRINT "<"A$">":N =  VAL(A$): IF N <1  OR N >4  THEN  RUN 
  6. 50  IF N = 1  THEN A$ = "SLIP.DIGITS"
  7. 60  IF N = 2  THEN A$ = "TEXTTRAIN"
  8. 70  IF N = 3  THEN A$ = "WOWZO"
  9. 80  IF N = 4  THEN A$ = "MENU"
  10. 85  IF N <4  THEN A$ = "BEAGLE BAG/" +A$
  11. 90  PRINT : PRINT : PRINT  CHR$(4)"RUN DEMO."A$